home *** CD-ROM | disk | FTP | other *** search
/ Star Festival... a Return to Japan / Star Festival... a Return to Japan.iso / pc / STARFESTIVAL / 01p5.dir / 00001.ls next >
Encoding:
Text File  |  1999-04-07  |  1.5 KB  |  55 lines
  1. on startMovie
  2.   global gKnobSprite, gSendMovie, gCursorReady
  3.   gKnobSprite = 14
  4.   gSendMovie = "01p5"
  5.   setUpKnob()
  6.   puppetSprite(48, 1)
  7.   gCursorReady = 1
  8.   set the mouseDownScript to EMPTY
  9.   set the mouseUpScript to EMPTY
  10. end
  11.  
  12. on idle
  13.   global gCursorReady
  14.   if gCursorReady = 1 then
  15.     cursor(200)
  16.     checkCursors()
  17.     set the locH of sprite 48 to the mouseH
  18.     set the locV of sprite 48 to the mouseV
  19.     updateStage()
  20.   end if
  21. end
  22.  
  23. on checkCursors
  24.   global gMagCursor
  25.   gMagCursor = "magCursor"
  26.   set the castNum of sprite 48 to the number of member "curs1"
  27.   if the castNum of sprite 5 and rollOver(5) then
  28.     set the castNum of sprite 48 to the number of member gMagCursor
  29.   end if
  30.   if the castNum of sprite 8 and rollOver(8) then
  31.     set the castNum of sprite 48 to the number of member "deMagCursor"
  32.   end if
  33.   repeat with i = 15 to 17
  34.     if rollOver(i) then
  35.       set the castNum of sprite 48 to the number of member "hotCursor"
  36.     end if
  37.   end repeat
  38.   if the castNum of sprite 26 and rollOver(26) then
  39.     set the castNum of sprite 48 to the number of member "hotCursor"
  40.   end if
  41.   repeat with i = 30 to 32
  42.     if rollOver(i) then
  43.       set the castNum of sprite 48 to the number of member "hotCursor"
  44.     end if
  45.   end repeat
  46.   repeat with i = 40 to 42
  47.     if rollOver(i) then
  48.       set the castNum of sprite 48 to the number of member "hotCursor"
  49.     end if
  50.   end repeat
  51.   if the castNum of sprite 47 and rollOver(47) then
  52.     set the castNum of sprite 48 to the number of member "hotCursor"
  53.   end if
  54. end
  55.